home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / MacTechNotes / Platforms & Tools / Stand-Alone Code.sit / LazyPassƒ / LazyTest.p / LazyTest.p
Encoding:
Text File  |  1990-06-20  |  352 b   |  29 lines  |  [TEXT/MPS ]
  1.  
  2. PROGRAM TestApp;
  3.  
  4. USES
  5.     Types, Resources, Memory, OSUtils;
  6.     
  7. VAR
  8.     a, c: Real;
  9.     h1: Handle;
  10.     
  11.  
  12.     FUNCTION CallModule (parm: Real; modHandle: Handle) : Real;
  13.     INLINE    $205F,
  14.             $2050,
  15.             $4E90;
  16.     
  17.     
  18. BEGIN
  19.     Write('Circumference:');
  20.     ReadLn(c);
  21.     
  22.     h1 := GetResource('CUST',128);
  23.     HLock(h1);
  24.     a := CallModule(c,h1);
  25.     HUnlock(h1);
  26.     
  27.     WriteLn('Area: ',a);
  28. END.
  29.